% V20210224 - 17.3.1 Console

INCLUDE "GW.bas"

% Create a page with title.
p = GW_NEW_PAGE()
GW_ADD_TITLEBAR(p, "GW Debugger "+GW_VER$())

% Add controls.
GW_ADD_INPUTLINE(p, "Inputline:","Bla bla")
lnk=GW_ADD_LINK(p, "This is a Link", "")
btn=GW_ADD_BUTTON(p, "This is a Button", "")
GW_USE_THEME_CUSTO_ONCE("style='background:green; color:white'")
GW_ADD_BUTTON(p, "Modify links to \"GO\"", "CHANGE:GO")
GW_USE_THEME_CUSTO_ONCE("style='background:red; color:white'")
GW_ADD_BUTTON(p, "Modify links to \"\"", "CHANGE:EMPTY")

% Add debugger!
GW_ADD_DEBUGGER(p)

% Now show page.
GW_RENDER(p)

% Call a dummy javascript
JS("unknownJSfunction()")

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()
 POPUP r$
 GW_LOG("Action message: "+r$) % Show log in web console

 IF r$="CHANGE:GO"
  GW_MODIFY(lnk, "link", "GO")
  GW_MODIFY(btn, "link", "GO")
 ELSEIF r$="CHANGE:EMPTY"
  GW_MODIFY(lnk, "link", "")
  GW_MODIFY(btn, "link", "")
 ENDIF

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END